home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / KAM401.ZIP / KAM.PAS < prev    next >
Pascal/Delphi Source File  |  1989-03-21  |  2KB  |  72 lines
  1. {                                 C A R P
  2.  
  3.     A keyboard terminal program for use with the Kantronics KAM (tm) all
  4.     mode interface in the Cw Ascii Rtty Packet modes.  This program is the
  5.     product of W1HKJ, suggestions for improvements are welcomed and should
  6.     be sent to the below address.
  7.  
  8.     (c) Copyright  Dave Freese, W 1 H K J
  9.                    c/o Clermont Computer Consultants
  10.                    29 N. Ravenwood Drive
  11.                    Cape May Court House, NJ  08210
  12.                    (609) 625 0076
  13. }
  14. program KAM;
  15.  
  16. {$R-}    {Range checking off}
  17. {$N-}    {No numeric coprocessor}
  18.  
  19. Uses
  20.   Crt,
  21.   Dos,
  22.   DBF4,         { .            }
  23.   INDEX4,       {   .          }
  24.   SAYGET4,      {     .        }
  25.   BROWSE4,      {  TOPAZ UNITS }
  26.   TIMEDATE,     {         .    }
  27.   PICK,         {           .  }
  28.   VIDPOP;       {             .}
  29.  
  30. procedure chk_kbd; forward;
  31. procedure sho_status; forward;
  32. procedure halt_xmt; forward;
  33.  
  34. {$I KAM-TYP.PAS}
  35. {$I KAM-CON.PAS}
  36. {$I KAM-VAR.PAS}
  37. {$I KAM-CLR.PAS}
  38. {$I KAM-DOS.PAS}
  39. {$I KAM-LOG.PAS}
  40. {$I KAM-IO.PAS}
  41. {$I KAM-VID.PAS}
  42. {$I KAM-AUX.PAS}
  43. {$I KAM-HLP.PAS}
  44. {$I KAM-XMT.PAS}
  45. {$I KAM-RCV.PAS}
  46. {$I KAM-SET.PAS}
  47. {$I KAM-KBD.PAS}
  48.  
  49. begin
  50.   check_video;
  51. {  CheckBreak := false; }
  52.   save_entry_screen;
  53.   initialize;
  54.   clear_screen;
  55.   repeat
  56.     disp_time;
  57.     case state of
  58.       transmit   : xmtg;
  59.       receive    : rcvg;
  60.       transceive : begin
  61.                      xmtg;
  62.                      rcvg;
  63.                    end;
  64.     end;
  65.     chk_kbd;
  66.   until quit_flag = TRUE;
  67.   CloseDataBases;
  68.   reset_date_time;
  69.   reset_kam;
  70.   restore_entry_screen;
  71. end.
  72.